home *** CD-ROM | disk | FTP | other *** search
/ Educational Software Cooperative 4 / Educational Software Cooperative 4.iso / midilang / breath2.mpl < prev    next >
Text File  |  1996-02-06  |  1KB  |  94 lines

  1. 7213
  2. #
  3. #
  4. #
  5. #    breath2.mpl
  6. #
  7. #    copy chan1 -> Chan2
  8. #    inverse breath control and replace by volume control
  9. #
  10. #      Author            ID                 Date
  11. #    ------------    -----------          ---------
  12. #    Serge Sibony    100417,2633           01/17/96
  13. #      
  14. #
  15. # This file is a mpl effect definition used by MidiLang
  16. #    MidiLang can be found at the MidiForum, in the
  17. #         Windows sound media library.
  18. #
  19. # This effect replays any Note played in channel 1 to the channel 2
  20. # and replace the breath control with the volume control after
  21. # inversion
  22. #
  23. #
  24. # This is an example of the use of the Midi Mapper
  25. #
  26.  
  27.  
  28. label init
  29.  
  30. # initialisation of the curve
  31.  
  32. V= 200 127
  33. V= 201 1
  34.  
  35. label loop
  36. VV=V 201 200
  37. V-= 200 1
  38. V+= 201 1
  39. V> 200 0
  40. goto loop
  41. end
  42.  
  43.  
  44.  
  45. label mapper
  46.  
  47. status!= 0xB0
  48. goto end
  49. #only channel 1
  50.  
  51. data1!= 2
  52. goto out
  53. #only breath control
  54.  
  55. data1= 7
  56. # switch to volume control
  57.  
  58. #and inverse the effect
  59. V=data2 201
  60. V+= 201 1
  61. V=VV 200 201
  62.  
  63. data2=V 200
  64.  
  65. label out
  66. status= 0xB1
  67. outmidi
  68.  
  69. #outmidi
  70.  
  71. label end
  72. end
  73.  
  74.  
  75.  
  76. label main
  77.  
  78. chan!= 1
  79. goto mend
  80. chan= 2
  81. outmidi
  82.  
  83. label mend
  84. end
  85.  
  86.  
  87.  
  88. descript        breath controller mapping
  89. descript All notes found in channel 1 are copyed to
  90. descript channel 2
  91. descript All breath control are replaced by volume control
  92. descript the curve breath/volume is inverted